home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / FREE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-12  |  123 b   |  9 lines
  1. Program Free;
  2. {$I Free.inc }
  3. begin
  4.  clrscr;
  5.  gotoxy(1,24);
  6.  write('Memory available on disk:  ');
  7.  showfree;
  8. end.
  9.